home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / end.dir / 00002_Click & Rollover.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  1.8 KB  |  70 lines
  1. on hPressButton
  2.   set vSprite to the clickOn
  3.   set vCastNo to the castNum of sprite vSprite
  4.   set vCastNam to the name of cast vCastNo
  5.   puppetSprite(vSprite, 1)
  6.   if (vCastNam = 0) or (vCastNam = EMPTY) then
  7.     set the castNum of sprite vSprite to vCastNo + 1
  8.   else
  9.     if vCastNam contains "ROLLOVER" then
  10.       set the castNum of sprite vSprite to vCastNo + 1
  11.     else
  12.       set the castNum of sprite vSprite to the number of cast (vCastNam & "-down")
  13.     end if
  14.   end if
  15.   updateStage()
  16.   repeat while the stillDown
  17.     nothing()
  18.   end repeat
  19.   if (vCastNam = 0) or (vCastNam = EMPTY) then
  20.     set the castNum of sprite vSprite to vCastNo
  21.   else
  22.     set the castNum of sprite vSprite to the number of cast vCastNam
  23.   end if
  24.   puppetSprite(vSprite, 0)
  25.   updateStage()
  26.   if the mouseCast = the castNum of sprite vSprite then
  27.     return 1
  28.   else
  29.     return 0
  30.   end if
  31. end
  32.  
  33. on hRolloverScript vFrameLabel
  34.   global gLastSprite
  35.   set vNowSprite to 0
  36.   if rollOver(2) then
  37.     set vNowSprite to 2
  38.   end if
  39.   if not (vNowSprite = 0) then
  40.     set vCastNo to the castNum of sprite vNowSprite
  41.     set vCastName to the name of cast vCastNo
  42.     if (vCastName contains "NOOP") or (vCastName contains "DOWN") then
  43.       set vNowSprite to 0
  44.     end if
  45.   end if
  46.   if not (vNowSprite = 0) then
  47.     hRollOverOn(vNowSprite)
  48.     set gLastSprite to vNowSprite
  49.   else
  50.     puppetSprite(gLastSprite, 0)
  51.     set gLastSprite to 0
  52.   end if
  53. end
  54.  
  55. on hRollOverOn vNowSprite
  56.   global gLastSprite
  57.   if not (gLastSprite = vNowSprite) then
  58.     set vCastNo to the castNum of sprite vNowSprite
  59.     set vCastNam to the name of cast vCastNo
  60.     puppetSprite(vNowSprite, 1)
  61.     set the castNum of sprite vNowSprite to the number of cast (vCastNam & "-ROLLOVER")
  62.     if not (gLastSprite = 0) then
  63.       puppetSprite(gLastSprite, 0)
  64.       updateStage()
  65.     end if
  66.   else
  67.     nothing()
  68.   end if
  69. end
  70.